home *** CD-ROM | disk | FTP | other *** search
/ J-Mac Electronics & Home Comics / J-Mac Electronics & Home Comics.iso / mac / J-MAC / G24F / G24_TOKI.Dxr / 00067.ls < prev    next >
Encoding:
Text File  |  1998-01-22  |  2.5 KB  |  133 lines
  1. global i, gno, jumplistkeyg, jumplistkeyz
  2.  
  3. on startMovie
  4.   set mycursor to [1, 2]
  5.   repeat with i = 11 to 15
  6.     set the cursor of sprite i to mycursor
  7.   end repeat
  8.   set jumplistkeyg to ["G1", "G2", "G3", "G4", "G5", "G6", "G7", "G8"]
  9.   set jumplistkeyz to ["M1", "M2", "M3", "M4", "M5", "M6", "M7", "M8"]
  10.   set volset to the soundLevel
  11.   if the soundEnabled = 0 then
  12.     set the soundEnabled to 1
  13.   end if
  14. end
  15.  
  16. on donextg
  17.   if (gno + 1) = 9 then
  18.     set gno to 0
  19.   end if
  20.   go(getAt(jumplistkeyg, gno + 1))
  21. end
  22.  
  23. on dobackg
  24.   if (gno - 1) = 0 then
  25.     set gno to 9
  26.   end if
  27.   go(getAt(jumplistkeyg, gno - 1))
  28. end
  29.  
  30. on doexit
  31.   sound stop 1
  32.   go("M3", "@::JMACMENU")
  33. end
  34.  
  35. on crtopen
  36.   puppetSprite(8, 1)
  37.   repeat while the stillDown
  38.     set the memberNum of sprite 8 to 11
  39.     updateStage()
  40.   end repeat
  41.   set the memberNum of sprite 8 to 10
  42.   updateStage()
  43.   puppetSprite(8, 0)
  44. end
  45.  
  46. on crtclose
  47.   puppetSprite(9, 1)
  48.   repeat while the stillDown
  49.     set the memberNum of sprite 9 to 13
  50.     updateStage()
  51.   end repeat
  52.   set the memberNum of sprite 9 to 12
  53.   updateStage()
  54.   puppetSprite(9, 0)
  55. end
  56.  
  57. on crtpro
  58.   puppetSprite(10, 1)
  59.   repeat while the stillDown
  60.     set the memberNum of sprite 10 to 15
  61.     updateStage()
  62.   end repeat
  63.   set the memberNum of sprite 10 to 14
  64.   updateStage()
  65.   puppetSprite(10, 0)
  66. end
  67.  
  68. on crtnext
  69.   puppetSprite(20, 1)
  70.   repeat while the stillDown
  71.     set the memberNum of sprite 20 to 39
  72.     updateStage()
  73.   end repeat
  74.   set the memberNum of sprite 20 to 38
  75.   updateStage()
  76.   puppetSprite(20, 0)
  77. end
  78.  
  79. on crtback
  80.   puppetSprite(21, 1)
  81.   repeat while the stillDown
  82.     set the memberNum of sprite 21 to 41
  83.     updateStage()
  84.   end repeat
  85.   set the memberNum of sprite 21 to 40
  86.   updateStage()
  87.   puppetSprite(21, 0)
  88. end
  89.  
  90. on crtclose2
  91.   puppetSprite(22, 1)
  92.   repeat while the stillDown
  93.     set the memberNum of sprite 22 to 43
  94.     updateStage()
  95.   end repeat
  96.   set the memberNum of sprite 22 to 42
  97.   updateStage()
  98.   puppetSprite(22, 0)
  99. end
  100.  
  101. on crtnextm
  102.   puppetSprite(20, 1)
  103.   repeat while the stillDown
  104.     set the memberNum of sprite 20 to 21
  105.     updateStage()
  106.   end repeat
  107.   set the memberNum of sprite 20 to 20
  108.   updateStage()
  109.   puppetSprite(20, 0)
  110. end
  111.  
  112. on crtbackm
  113.   puppetSprite(21, 1)
  114.   repeat while the stillDown
  115.     set the memberNum of sprite 21 to 23
  116.     updateStage()
  117.   end repeat
  118.   set the memberNum of sprite 21 to 22
  119.   updateStage()
  120.   puppetSprite(21, 0)
  121. end
  122.  
  123. on crtexit
  124.   puppetSprite(22, 1)
  125.   repeat while the stillDown
  126.     set the memberNum of sprite 22 to 25
  127.     updateStage()
  128.   end repeat
  129.   set the memberNum of sprite 22 to 24
  130.   updateStage()
  131.   puppetSprite(22, 0)
  132. end
  133.